home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 March & April / rerun-1986-03-04.d64 / keypad typist 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  80 lines
  1. 10 poke56,peek(56)-1:poke52,peek(56):clr
  2. 20 pg=peek(56):ml=pg*256+60
  3. 30 forx=mltoml+154:readd:t=t+d:pokex,d:next
  4. 40 ift<>16251 thenprint"error in data...":end
  5. 60 pokeml+4,pg:pokeml+10,pg:pokeml+16,pg
  6. 70 pokeml+20,pg:pokeml+32,pg:pokeml+38,pg
  7. 80 pokeml+141,pg
  8. 89 print"[147]**************************************"
  9. 90 sysml:print"** 64 perfect typist is now active  **"
  10. 100 print"** sys"ml"=on     sys"ml+30"=off **"
  11. 101 print"**************************************"
  12. 110 data 173,005,003,201,003,208,001,096
  13. 120 data 141,105,003,173,004,003,141,104
  14. 130 data 003,162,103,160,003,142,004,003
  15. 140 data 140,005,003,096,234,234,173,104
  16. 150 data 003,141,004,003,173,105,003,141
  17. 160 data 005,003,096,032,124,165,132,011
  18. 170 data 162,000,142,240,003,142,241,003
  19. 180 data 189,000,002,240,051,201,032,208
  20. 190 data 004,164,212,240,040,201,034,208
  21. 200 data 008,072,165,212,073,001,133,212
  22. 210 data 104,072,238,241,003,173,241,003
  23. 220 data 041,007,168,104,024,072,024,104
  24. 230 data 016,001,056,042,136,016,246,109
  25. 240 data 240,003,141,240,003,232,208,200
  26. 250 data 173,240,003,024,101,020,024,101
  27. 260 data 021,141,240,003,169,042,032,210
  28. 270 data 255,169,000,174,240,003,032,205
  29. 280 data 189,162,003,189,211,003,032,210
  30. 290 data 255,202,016,247,164,011,096,145
  31. 300 data 013,032,032
  32. 500 poke828,peek(65):poke829,peek(66)
  33. 510 poke56,peek(56)-1:poke52,peek(56):clr
  34. 520 ifpeek(644)-peek(56)<2goto510
  35. 530 poke65,peek(828):poke66,peek(829)
  36. 540 pg=peek(56):ml=pg*256
  37. 550 forx=mltoml+152:readz:pokex,z:next
  38. 560 forx=ml+247toml+312:readz:pokex,z:next
  39. 570 forx=1to16:readz:pokeml+z,pg:next
  40. 580 pokeml+13,pg+1:pokeml+286,pg+1
  41. 590 print" ";:forx=1to38:print"*";:next:print
  42. 600 print" **  c-64 keypad now ready for use   **"
  43. 610 print" **  use sys"ml+115"to restart wedge  **"
  44. 620 print" ";:forx=1to38:print"*";:next:print
  45. 630 sysml+115:poke2,10:new
  46. 640 data173,141,2,201,6,240,14,201
  47. 650 data5,208,3,76,,193,169,0
  48. 660 data141,103,192,240,27,173,103,192
  49. 670 data208,76,238,103,192,173,104,192
  50. 680 data73,1,141,104,192,173,179,192
  51. 690 data73,28,141,179,192,76,77,192
  52. 700 data164,198,240,50,185,118,2,162
  53. 710 data9,221,105,192,240,4,202,16
  54. 720 data248,96,173,104,192,240,31,138
  55. 730 data9,48,153,118,2,169,15,141
  56. 740 data24,212,169,65,141,18,212,160
  57. 750 data32,136,208,253,169,64,141,18
  58. 760 data212,169,,141,24,212,96,0
  59. 770 data0,77,74,75,76,85,73,79
  60. 780 data55,56,57,162,,142,104,192
  61. 790 data189,49,234,201,104,240,6,157
  62. 800 data167,192,232,208,243,173,21,3
  63. 810 data201,234,208,12,120,169,192,141
  64. 820 data21,3,169,167,141,20,3,88,96
  65. 830 data32,,192,104,168,104,170,104,64
  66. 840 data166,211,240,1,96,174,103,192
  67. 850 data208,250,238,103,192,24,165,20
  68. 860 data101,2,170,165,21,105,,32
  69. 870 data205,189,162,,189,53,193,32
  70. 880 data210,255,224,3,240,3,232,208
  71. 890 data243,165,198,208,7,230,198,169
  72. 900 data32,141,119,2,96,68,65,84,65
  73. 910 data18,23,28,31,36,39,44,47
  74. 920 data59,68,119,129,142,249,263,268
  75. 930 data38,170,43,170,80,14,81,144
  76. 940 data83,200,85,13,86,144,87,96
  77. 950 data95,13,96,144,100,14,101,144
  78. 960 data121,191,128,158,147,158,281,221
  79. 970 data25,66,51,40,70,21
  80.